home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / TIME2.FRM < prev    next >
Text File  |  1993-12-10  |  8KB  |  369 lines
  1. Version 1.00
  2. BEGIN Form Time2
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Set Server Time"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(19)
  11.     Left         = Char(15)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(50)
  19.     WindowState  = 0
  20.     BEGIN Label Label1
  21.         Alignment    = 0
  22.         AutoSize     = 0
  23.         BackColor    = QBColor(1)
  24.         BorderStyle  = 0
  25.         Caption      = "Year:"
  26.         DragMode     = 0
  27.         Enabled      = -1
  28.         ForeColor    = QBColor(15)
  29.         Height       = Char(1)
  30.         Left         = Char(33)
  31.         MousePointer = 0
  32.         TabIndex     = 8
  33.         Tag          = ""
  34.         Top          = Char(3)
  35.         Visible      = -1
  36.         Width        = Char(5)
  37.     END
  38.     BEGIN Label Label2
  39.         Alignment    = 0
  40.         AutoSize     = 0
  41.         BackColor    = QBColor(1)
  42.         BorderStyle  = 0
  43.         Caption      = "Month:"
  44.         DragMode     = 0
  45.         Enabled      = -1
  46.         ForeColor    = QBColor(15)
  47.         Height       = Char(1)
  48.         Left         = Char(2)
  49.         MousePointer = 0
  50.         TabIndex     = 9
  51.         Tag          = ""
  52.         Top          = Char(3)
  53.         Visible      = -1
  54.         Width        = Char(6)
  55.     END
  56.     BEGIN Label Label3
  57.         Alignment    = 0
  58.         AutoSize     = 0
  59.         BackColor    = QBColor(1)
  60.         BorderStyle  = 0
  61.         Caption      = "Day:"
  62.         DragMode     = 0
  63.         Enabled      = -1
  64.         ForeColor    = QBColor(15)
  65.         Height       = Char(1)
  66.         Left         = Char(18)
  67.         MousePointer = 0
  68.         TabIndex     = 10
  69.         Tag          = ""
  70.         Top          = Char(3)
  71.         Visible      = -1
  72.         Width        = Char(4)
  73.     END
  74.     BEGIN TextBox daytext
  75.         BackColor    = QBColor(1)
  76.         BorderStyle  = 1
  77.         DragMode     = 0
  78.         Enabled      = -1
  79.         ForeColor    = QBColor(7)
  80.         Height       = Char(3)
  81.         Left         = Char(23)
  82.         MousePointer = 0
  83.         MultiLine    = 0
  84.         ScrollBars   = 0
  85.         TabIndex     = 1
  86.         TabStop      = -1
  87.         Tag          = ""
  88.         Text         = ""
  89.         Top          = Char(2)
  90.         Visible      = -1
  91.         Width        = Char(5)
  92.     END
  93.     BEGIN TextBox monthtext
  94.         BackColor    = QBColor(1)
  95.         BorderStyle  = 1
  96.         DragMode     = 0
  97.         Enabled      = -1
  98.         ForeColor    = QBColor(7)
  99.         Height       = Char(3)
  100.         Left         = Char(8)
  101.         MousePointer = 0
  102.         MultiLine    = 0
  103.         ScrollBars   = 0
  104.         TabIndex     = 0
  105.         TabStop      = -1
  106.         Tag          = ""
  107.         Text         = ""
  108.         Top          = Char(2)
  109.         Visible      = -1
  110.         Width        = Char(5)
  111.     END
  112.     BEGIN TextBox yearText
  113.         BackColor    = QBColor(1)
  114.         BorderStyle  = 1
  115.         DragMode     = 0
  116.         Enabled      = -1
  117.         ForeColor    = QBColor(7)
  118.         Height       = Char(3)
  119.         Left         = Char(38)
  120.         MousePointer = 0
  121.         MultiLine    = 0
  122.         ScrollBars   = 0
  123.         TabIndex     = 2
  124.         TabStop      = -1
  125.         Tag          = ""
  126.         Text         = ""
  127.         Top          = Char(2)
  128.         Visible      = -1
  129.         Width        = Char(5)
  130.     END
  131.     BEGIN Label Label4
  132.         Alignment    = 0
  133.         AutoSize     = 0
  134.         BackColor    = QBColor(1)
  135.         BorderStyle  = 0
  136.         Caption      = "Hour:"
  137.         DragMode     = 0
  138.         Enabled      = -1
  139.         ForeColor    = QBColor(15)
  140.         Height       = Char(1)
  141.         Left         = Char(2)
  142.         MousePointer = 0
  143.         TabIndex     = 11
  144.         Tag          = ""
  145.         Top          = Char(8)
  146.         Visible      = -1
  147.         Width        = Char(6)
  148.     END
  149.     BEGIN Label Label5
  150.         Alignment    = 0
  151.         AutoSize     = 0
  152.         BackColor    = QBColor(1)
  153.         BorderStyle  = 0
  154.         Caption      = "Minute:"
  155.         DragMode     = 0
  156.         Enabled      = -1
  157.         ForeColor    = QBColor(15)
  158.         Height       = Char(1)
  159.         Left         = Char(16)
  160.         MousePointer = 0
  161.         TabIndex     = 12
  162.         Tag          = ""
  163.         Top          = Char(8)
  164.         Visible      = -1
  165.         Width        = Char(7)
  166.     END
  167.     BEGIN Label Label6
  168.         Alignment    = 0
  169.         AutoSize     = 0
  170.         BackColor    = QBColor(1)
  171.         BorderStyle  = 0
  172.         Caption      = "Second:"
  173.         DragMode     = 0
  174.         Enabled      = -1
  175.         ForeColor    = QBColor(15)
  176.         Height       = Char(1)
  177.         Left         = Char(31)
  178.         MousePointer = 0
  179.         TabIndex     = 13
  180.         Tag          = ""
  181.         Top          = Char(8)
  182.         Visible      = -1
  183.         Width        = Char(7)
  184.     END
  185.     BEGIN TextBox hourText
  186.         BackColor    = QBColor(1)
  187.         BorderStyle  = 1
  188.         DragMode     = 0
  189.         Enabled      = -1
  190.         ForeColor    = QBColor(7)
  191.         Height       = Char(3)
  192.         Left         = Char(9)
  193.         MousePointer = 0
  194.         MultiLine    = 0
  195.         ScrollBars   = 0
  196.         TabIndex     = 3
  197.         TabStop      = -1
  198.         Tag          = ""
  199.         Text         = ""
  200.         Top          = Char(7)
  201.         Visible      = -1
  202.         Width        = Char(5)
  203.     END
  204.     BEGIN TextBox minuteText
  205.         BackColor    = QBColor(1)
  206.         BorderStyle  = 1
  207.         DragMode     = 0
  208.         Enabled      = -1
  209.         ForeColor    = QBColor(7)
  210.         Height       = Char(3)
  211.         Left         = Char(23)
  212.         MousePointer = 0
  213.         MultiLine    = 0
  214.         ScrollBars   = 0
  215.         TabIndex     = 4
  216.         TabStop      = -1
  217.         Tag          = ""
  218.         Text         = ""
  219.         Top          = Char(7)
  220.         Visible      = -1
  221.         Width        = Char(5)
  222.     END
  223.     BEGIN TextBox secondText
  224.         BackColor    = QBColor(1)
  225.         BorderStyle  = 1
  226.         DragMode     = 0
  227.         Enabled      = -1
  228.         ForeColor    = QBColor(7)
  229.         Height       = Char(3)
  230.         Left         = Char(38)
  231.         MousePointer = 0
  232.         MultiLine    = 0
  233.         ScrollBars   = 0
  234.         TabIndex     = 5
  235.         TabStop      = -1
  236.         Tag          = ""
  237.         Text         = ""
  238.         Top          = Char(7)
  239.         Visible      = -1
  240.         Width        = Char(5)
  241.     END
  242.     BEGIN CommandButton SetButon
  243.         BackColor    = QBColor(7)
  244.         Cancel       = 0
  245.         Caption      = "Set"
  246.         Default      = 0
  247.         DragMode     = 0
  248.         Enabled      = -1
  249.         Height       = Char(3)
  250.         Left         = Char(4)
  251.         MousePointer = 0
  252.         TabIndex     = 6
  253.         TabStop      = -1
  254.         Tag          = ""
  255.         Top          = Char(11)
  256.         Visible      = -1
  257.         Width        = Char(13)
  258.     END
  259.     BEGIN CommandButton Cancel
  260.         BackColor    = QBColor(7)
  261.         Cancel       = 0
  262.         Caption      = "Cancel"
  263.         Default      = 0
  264.         DragMode     = 0
  265.         Enabled      = -1
  266.         Height       = Char(3)
  267.         Left         = Char(27)
  268.         MousePointer = 0
  269.         TabIndex     = 7
  270.         TabStop      = -1
  271.         Tag          = ""
  272.         Top          = Char(11)
  273.         Visible      = -1
  274.         Width        = Char(14)
  275.     END
  276.     BEGIN Label Label7
  277.         Alignment    = 0
  278.         AutoSize     = 0
  279.         BackColor    = QBColor(1)
  280.         BorderStyle  = 0
  281.         Caption      = "Note: Console Operator Required"
  282.         DragMode     = 0
  283.         Enabled      = -1
  284.         ForeColor    = QBColor(7)
  285.         Height       = Char(1)
  286.         Left         = Char(7)
  287.         MousePointer = 0
  288.         TabIndex     = 14
  289.         Tag          = ""
  290.         Top          = Char(15)
  291.         Visible      = -1
  292.         Width        = Char(32)
  293.     END
  294.     BEGIN Label Label8
  295.         Alignment    = 0
  296.         AutoSize     = 0
  297.         BackColor    = QBColor(1)
  298.         BorderStyle  = 0
  299.         Caption      = "Date:"
  300.         DragMode     = 0
  301.         Enabled      = -1
  302.         ForeColor    = QBColor(15)
  303.         Height       = Char(1)
  304.         Left         = Char(2)
  305.         MousePointer = 0
  306.         TabIndex     = 15
  307.         Tag          = ""
  308.         Top          = Char(1)
  309.         Visible      = -1
  310.         Width        = Char(6)
  311.     END
  312.     BEGIN Label Label9
  313.         Alignment    = 0
  314.         AutoSize     = 0
  315.         BackColor    = QBColor(1)
  316.         BorderStyle  = 0
  317.         Caption      = "Military Time:"
  318.         DragMode     = 0
  319.         Enabled      = -1
  320.         ForeColor    = QBColor(15)
  321.         Height       = Char(1)
  322.         Left         = Char(2)
  323.         MousePointer = 0
  324.         TabIndex     = 16
  325.         Tag          = ""
  326.         Top          = Char(6)
  327.         Visible      = -1
  328.         Width        = Char(15)
  329.     END
  330. END
  331. '$FORM Time
  332. TYPE SST                                        'SetServerTime
  333.       year AS INTEGER
  334.       month AS INTEGER
  335.       day AS INTEGER
  336.       hour AS INTEGER
  337.       minute AS INTEGER
  338.       second AS INTEGER
  339.       ReturnCode AS INTEGER
  340. END TYPE
  341. DECLARE SUB SetServerTime (SetServTime AS SST)
  342.  
  343. SUB Cancel_Click ()
  344. UNLOAD time2
  345. Time.SHOW
  346. END SUB
  347.  
  348. SUB SetButon_Click ()
  349. DIM SetServTime AS SST
  350.  
  351. SetServTime.year% = VAL(yeartext.text)
  352. SetServTime.month% = VAL(monthtext.text)
  353. SetServTime.day% = VAL(daytext.text)
  354. SetServTime.hour% = VAL(hourtext.text)
  355. SetServTime.minute% = VAL(minutetext.text)
  356. SetServTime.second% = VAL(secondtext.text)
  357.  
  358. CALL SetServerTime(SetServTime)    'Call the Procedure
  359.  
  360. IF SetServTime.ReturnCode% <> 0 THEN
  361.     msg$ = "Console Operator rights required"
  362.     MSGBOX msg$, 0, "Time Set Error"
  363. END IF
  364.  
  365. UNLOAD time2
  366. Time.SHOW
  367. END SUB
  368.  
  369.